

## FIGURE 2

# load, combine data
library(rio)
library(tidyverse)




# LOAD DATA
funds <- import("list_laws_funds.csv")
rules <- import("list_laws_rules.csv")

all_docs <- funds %>%
  full_join(rules) %>%
  group_by(year) %>%
  summarise(N = length(year))

ggplot(all_docs, aes(x=year,y=N)) + geom_col() + 
  labs(x="Year",y="Number of Legal Documents") +
  theme_minimal() +
  scale_x_continuous(breaks=c(1980,1990,2000,2010,2020)) +
  scale_y_continuous(breaks=c(1,2,3,4,5,6)) +
  theme(axis.text.x = element_text(size=12), 
        axis.text.y = element_text(size=12),
        axis.title.x = element_text(size=12),
        axis.title.y = element_text(size=12))

#ggsave("figure2.pdf", height = 5, width = 9)
